home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / system-tools / browserii_v3_09 / s / lharcdir_p.c < prev    next >
Encoding:
AmigaDOS Script File  |  1996-02-26  |  458 b   |  29 lines
  1. .key Dir/A,Destination,Pat/K
  2. .bra {
  3. .ket }
  4. .def Pat="#?"
  5.  
  6. Set CurrentDir `CD`
  7. IF "{Destination}" EQ ""
  8.     Set Dest $CurrentDir
  9. Else
  10.     Set Dest {Destination}
  11. EndIf
  12.  
  13. CD "{Dir}"
  14. CD /
  15. Set ArcDir `BaseName "{Dir}"`
  16. Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"
  17.  
  18. Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
  19. IF $RC GT 0
  20.     Echo "Error during compression of {Dir}."
  21.     Ask "Press RETURN..."
  22. EndIf
  23. CD $CurrentDir
  24. UnSet Dest
  25. UnSet ArcDir
  26. UnSet ArcPathName
  27. UnSet CurrentDir
  28.  
  29.